home *** CD-ROM | disk | FTP | other *** search
/ PowerPak Gold 1992 Fall / PowerPak Gold (Fall 1992)(Flordia Lion's Den).iso / magazine / mnews12.exe / NEWS.BAT < prev    next >
DOS Batch File  |  1989-10-23  |  5KB  |  329 lines
  1.  
  2. ECHO OFF
  3.  
  4. REM  This is the Main Bat file for ModemNews Magazine
  5.  
  6.  type cover12.scr 
  7.  pause 
  8.  
  9. REM  This is the body of the file;
  10.  
  11. :again
  12. cls
  13. type pageone.scr
  14.  
  15.     response QNSBHRPEFAMCW
  16.     
  17.     if errorlevel 13 goto weekly
  18.     if errorlevel 12 goto letters
  19.     if errorlevel 11 goto mninfo
  20.     if errorlevel 10 goto ann
  21.     if errorlevel  9 goto fillers
  22.     if errorlevel  8 goto edit
  23.     if errorlevel  7 goto personals
  24.     if errorlevel  6 goto recipes
  25.     if errorlevel  5 goto humor
  26.     if errorlevel  4 goto bbs
  27.     if errorlevel  3 goto software
  28.     if errorlevel  2 goto news
  29.     if errorlevel  1 goto quit
  30.     
  31. -------------------------------------------------
  32.     
  33. :weekly
  34. type weekly.scr
  35.  
  36.     response ABR
  37.     if errorlevel 3 goto again
  38.     if errorlevel 2 goto md12
  39.     if errorlevel 1 goto brid
  40.     
  41.     
  42.         :brid
  43.         mnewskis.com
  44.         goto weekly
  45.             
  46.                 
  47.         :md12
  48.         mnewbeer.com
  49.         goto weekly
  50.         
  51.                 
  52. -------------------------------------------------
  53.         
  54. :letters
  55. letters.com
  56. goto again
  57.  
  58. -------------------------------------------------
  59.  
  60. :mninfo
  61. bbslist.com
  62. type tools.scr
  63. pause 
  64. type dead.scr
  65. pause
  66. goto again
  67.  
  68. -------------------------------------------------
  69.  
  70. :ann
  71. type contrib.scr
  72. pause 
  73. type ad.txt
  74. pause
  75. type contest.scr
  76. pause
  77. goto again
  78.  
  79. ------------------------------------------------
  80.  
  81. :fillers
  82. type filler.scr
  83.     response abcder
  84.     if errorlevel 6 goto again
  85.     if errorlevel 5 goto emerson
  86.     if errorlevel 4 goto laws 
  87.     if errorlevel 3 goto scar 
  88.         if errorlevel 2 goto poem 
  89.     if errorlevel 1 goto 2486 
  90.     
  91.         :emerson
  92.         cls
  93.         mnewpm12.com
  94.         goto fillers
  95.                               
  96.                 :2486
  97.         cls
  98.         mnewtres.com
  99.         goto fillers
  100.             
  101.         :poem 
  102.         cls
  103.         mnewatmn.com
  104.         goto fillers
  105.         
  106.         :scar
  107.         cls
  108.         mnewdbas.com
  109.         goto fillers
  110.         
  111.         :laws
  112.         cls
  113.         mnewddos.com
  114.         goto fillers
  115.         
  116.         
  117.         
  118. ------------------------------------------------        
  119.  
  120. :edit
  121. type editors.scr
  122.     response efr
  123.     if errorlevel 3 goto again
  124.     if errorlevel 2 goto reply
  125.     if errorlevel 1 goto editor
  126.     
  127.         :reply
  128.         cls
  129.         mnewrp12.com
  130.         goto edit
  131.         
  132.         :editor
  133.         cls
  134.         mnewed12.com
  135.         goto edit
  136.                 
  137.  
  138. ------------------------------------------------
  139.  
  140. :personals
  141.  
  142. ------------------------------------------------
  143.  
  144. :recipes
  145. cls
  146. type recipes.scr
  147. pause
  148. mnewrc12.com
  149. goto again
  150.  
  151. ------------------------------------------------
  152.  
  153. :humor
  154. type humor.scr
  155.     response ABR
  156.             
  157.     if errorlevel 3 goto again
  158.     if errorlevel 2 goto joke
  159.     if errorlevel 1 goto zerro
  160.     
  161.         :zerro
  162.         cls
  163.         mnewze12.com
  164.         goto humor
  165.     
  166.         :joke 
  167.         cls
  168.         mnewjk12.com
  169.         goto humor
  170.         
  171. ------------------------------------------------        
  172.  
  173. :bbs
  174. type bbsmenu.scr
  175.     response ABCDEFGHIJR
  176.     if errorlevel 11 goto again
  177.     if errorlevel 10 goto kid  
  178.     if errorlevel 9  goto pond   
  179.     if errorlevel 8  goto sunshine
  180.     if errorlevel 7  goto legal  
  181.     if errorlevel 6  goto horse 
  182.     if errorlevel 5  goto circus
  183.     if errorlevel 4  goto earth 
  184.     if errorlevel 3  goto apple   
  185.     if errorlevel 2  goto arizona
  186.     if errorlevel 1  goto adlib   
  187.     
  188.         :kid
  189.                 type unknown.dis
  190.                 pause
  191.                 goto bbs
  192.                 
  193.         :pond
  194.         type legal.dis
  195.         pause
  196.         goto bbs
  197.         
  198.         :sunshine
  199.         type intelec.dis 
  200.         pause
  201.         goto bbs
  202.         
  203.         :legal
  204.         type info.dis
  205.         pause
  206.         goto bbs
  207.         
  208.         :horse
  209.         type gosoft.dis
  210.         pause
  211.         goto bbs
  212.         
  213.         :circus
  214.         type emerson.dis
  215.         pause
  216.         goto bbs
  217.         
  218.         :earth
  219.         type digital.dis
  220.         pause
  221.         goto bbs
  222.         
  223.         :apple
  224.         type dewdrop.dis
  225.         pause
  226.         goto bbs
  227.         
  228.         :arizona
  229.         type crystal.dis  
  230.         pause
  231.         goto bbs
  232.         
  233.         :adlib
  234.         type candy.dis 
  235.         pause
  236.         goto bbs
  237.         
  238.  
  239. ------------------------------------------------
  240.  
  241. :software
  242. type reviews.scr
  243.     response ABCDEFGHR
  244.     if errorlevel 9 goto again
  245.     if errorlevel 8 goto sysd
  246.     if errorlevel 7 goto slick
  247.     if errorlevel 6 goto remind
  248.     if errorlevel 5 goto qw15 
  249.     if errorlevel 4 goto pcvoice
  250.     if errorlevel 3 goto new12  
  251.     if errorlevel 2 goto bbnews
  252.     if errorlevel 1 goto alien 
  253.     
  254.         :sysd
  255.         poet.com
  256.         cls
  257.         goto software 
  258.         
  259.         :slick
  260.         paws.com
  261.         cls
  262.         goto software 
  263.         
  264.         :remind 
  265.         mlshut12.com
  266.         cls
  267.         goto software 
  268.         
  269.         :qw15   
  270.         fastfood.com
  271.         cls
  272.         goto software 
  273.         
  274.         :pcvoice
  275.         ezdos.com  
  276.         cls
  277.         goto software 
  278.         
  279.         :new12 
  280.         energy12.com
  281.         cls
  282.         goto software 
  283.         
  284.                 :bbnews
  285.                 cloninv.com 
  286.                 cls
  287.                 goto software 
  288.                 
  289.                 :alien
  290.                 bbsmeter.com
  291.                 cls
  292.                 goto software 
  293.                 
  294.  
  295.         
  296. ------------------------------------------------
  297.  
  298. :news
  299. type news.scr
  300.     response ABCR
  301.         
  302.     if errorlevel 4 goto again
  303.     if errorlevel 3 goto warn 
  304.     if errorlevel 2 goto tips 
  305.     if errorlevel 1 goto card
  306.     
  307.             
  308.     :card
  309.     mnewcm12.com
  310.     goto news
  311.     
  312.     :tips
  313.     mnewcomp.com
  314.     goto news        
  315.                 
  316.         :warn
  317.         mnewsgap.com
  318.         goto news
  319.  
  320. ------------------------------------------------
  321. :quit
  322.  type dead.scr
  323.  pause 
  324.  type online.scr
  325.  pause
  326.  type end.scr
  327. 
  328.  
  329.